home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb9.arc / UT-MOD90.INC < prev   
Text File  |  1984-09-11  |  1KB  |  49 lines
  1.  
  2. procedure ProgramExit;
  3.  begin
  4.    Clrscr; Center('This Program is about to end',1,11,80);
  5.    highvideo; Center('Verify Ok (Y/N)',1,13,80); lowvideo;
  6.    repeat
  7.      Option; if not (Ch in ['Y','N']) then beep(350,150);
  8.    until Ch in ['Y','N'];
  9.  end;
  10.  
  11. procedure MainMenu;
  12.  var I,Tab: integer;
  13.      Okchoices: set of char;
  14.   begin
  15.    if First_run then
  16.     begin
  17.      ClrScr; HighVideo;
  18.      Center('*** MAIN  MENU ***  ',1,4,80); LowVideo;
  19.      for I:= 1 to 4 do  writeln('');
  20.      Tab:= 25;
  21.      writeln('':Tab,'<1> ');
  22.      writeln('':Tab,'<2> '); writeln('');
  23.      writeln('':Tab,'<3> ');
  24.      writeln('':Tab,'<4> ');   writeln('');
  25.      writeln('':Tab,'<5> ');
  26.      writeln('':Tab,'<6> '); writeln('');
  27.      writeln('':Tab,'<7> Exit the Program'); writeln('');
  28.      Box(20,2,60,20,6);writeln('');
  29.      SaveScreen; First_run:=false;
  30.     end else FlashScreen;
  31.     Set_Cap_num(' ','N',' '); Say_Cap_Num;
  32.     Highvideo; Center('Press Your Selection',21,19,38); LowVideo;
  33.     OKchoices:=['1'..'7'];
  34.     repeat
  35.       Option; if not (Ch in OKchoices) then Beep(350,150);
  36.     until Ch in OKchoices;
  37.     case Ch of
  38.       '1' :  ;
  39.       '2' :  ;
  40.       '3' :  ;
  41.       '4' :  ;
  42.       '5' :  ;
  43.       '6' :  ;
  44.       '7' :  begin
  45.                ProgramExit;
  46.                if Ch='Y' then Exit := true;
  47.              end;
  48.     end; { case }
  49.   end;